TITLE OF THE INVENTION 

SETTING UP A PROCEDURE OF A COMMUNICATION TAKING PLACE 
BETWEEN INSTANCES USING A PROTOCOL TESTER 

BACKGROUND OF THE INVENTION 

The present invention relates to testing a telecommunications network, 
and more particularly to setting up a procedure of a communication taking 
place between instances, one of which is a protocol tester. 

Testing a telecommunications network using a protocol tester is known 
from EP 1 128 600 A 1 (U.S. Patent Application Pub. No. US 2001/0015732 
A1 ), which is incorporated herein by reference in its entirety. Using as an 
example the standardized MSG (Message Sequence Charts) language which 
serves to graphically display a communication procedure between two 
instances in a telecommunications network, the above-identified application 
explains the transformation of a graphic display into an executable version of 
a communication procedure. Details on MSC may be found in ITU-T Z 120, 
which is incorporated herein by reference in its entirety. This makes it 
possible even for users not skilled in the art of programming to easily create 
procedures. Thus the methodology described in EP 1 128 600 A 1 
constitutes a major progress. Yet there remain problems which make the 
setting-up of a communication procedure with MSC awkward, which impede 
the readability of the generated code, and which entail a high storage 
demand. This is illustrated in the examples shown in Figs. 1 to 3. 

Based on the example of a repetition, Fig. 1 shows a communication 
procedure between the instance TC (Test Component) and the instance IUT 
(Item Under Test). The instance TC is formed by a protocol tester, while the 
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instance IUT constitutes the unit to be tested. The task consists in the 
instance TC waiting for the setting up of a connection to be completed by the 
instance IUT. Thus, first the instance TC waits for the receipt of a dial tone 
and, upon receipt of such dial tone, sends out an inquiry as to whether the 
5 setting-up of the connection has been completed. If there is a reply from the 
IUT confirming that the setting-up of the connection is complete, the task 
ends. If, however, the IUT sends a reply that the setting-up of the connection 
is not yet complete, the TC continues to wait for the receipt of a dial tone. 
After receipt thereof, the TC again asks the question whether the setting-up of 

10 the connection is complete. If the TC receives an affirmative reply, the task is 
completed, but if not, the procedure of waiting and sending a completion 
inquiry continues until at some stage a programmer realizes that all relevant 
cases should be covered. Not an easy quest, as one can see, so the "ALT' 
boxes in Fig. 1 may continue downward several times more. This is 

15 extremely awkward and time-consuming, and impedes the readability of a 
longer communication procedure into which this task is incorporated. 

Fig. 2 shows another prior art communication procedure where, upon 
receipt of event 2, the instance TC sends event 8. If one assumes that the 
communication sequence is contained in a number of communication 

20 procedures, and there results a change in the protocol development that, 
upon receipt of event 2, event 8 and event 9 are sent, then each individual 
chart has to be changed accordingly. This no doubt constitutes an error 
source if the change of individual charts is forgotten. Moreover, this takes a 
lot of time. 
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Fig. 3 shows a further prior art sequence of a communication 
procedure. The task is that, upon receipt of event 555, the instance TC 
sends event X. Upon receipt of all other events between 1 and 10,000, the 
instance TC sends nothing. Using this example, a certain message is sent 
5 only upon receipt of a certain telephone number. It is obvious that the 
programming effort for this task is immense, and the present situation is 
therefore unsatisfactory. 

The alternative for avoiding awkward structures of this kind, as shown 
in Figs. 1 and 2, is to incorporate boxes with a programming code into the 
10 charts. However, this entails a disadvantage which the invention described in 
EP 1 128 600 A1 avoided, i.e. that in order to define a communication 
procedure, the user has to have programming knowledge. For a known 
protocol tester, so-called Forth boxes, i.e. boxes with a programming code in 
the programming language Forth, would have to be incorporated into which 
15 the code would have to be programmed. 

What is desired is to develop a generic method and a generic protocol 
tester in such a way that communication procedures may be set up with less 
programming effort, more clarity, swifter executability and less storage 
demand. 

20 

BRIEF SUMMARY OF THE INVENTION 

Accordingly the present invention uses a simplified communication 
procedure that makes actions of one of two instances of a communication 
procedure dependent, not on the receipt of events, but on the contents of 



variables. Rather than branchings being defined over events, a branching is 
a function of the content of a variable. A switch/case functionality may be 
specified, for example, which executes one instance as a function of the 
content of the variable. A loop functionality also may be realized as a 
function of the content of the variable. The loop functionality may also include 
a for-next, a do-while and/or a while-do functionality. Specifying jump and/or 
go-to functionalities and/or an if-then functionality as a function of the content 
of the variable also is possible. In a generic method, the instances involved in 
the communication are graphically selected, the protocol layer is graphically 
selected, and/or abstract communication interfaces of the protocol layer are 
graphically selected, with parameters so selected being allocated description 
files which are used subsequently for setting up the communication procedure 
executable between the instances, i.e. an executable script. The abstract 
communication interfaces may be SAPs (Service Access Points). The 
communication data may be PDUs (Protocol Data Units) and/or ASPs 
(Abstract Service Primitives). As part of the generic method partial steps of 
graphically selecting a data format and graphically setting up a 
communication sequence between the instances are involved. In the latter 
partial step a source code may be entered. 

The objects, advantages and other novel features of the present 
invention are apparent from the following detailed description when read in 
conjunction with the appended claims and attached drawing. 
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BRIEF DESCRIPTION OF THE SEVERAL VIEWS OF THE DRAWING 

Fig. 1 is a chart view of a communication procedure for a repetition 
according to the prior art. 

Fig. 2 is a chart view of a communication procedure according to the 
5 prior art where, upon receipt of event 2, event 8 is sent. 

Fig. 3 is a chart view of a communication procedure according to the 
prior art where, upon receipt of event 555, event X is sent. 

Fig. 4 is a chart view of a communication procedure according to the 
present invention corresponding to the communication procedure of Fig. 1 . 
10 Fig. 5 is a chart view of a communication procedure according to the 

present invention corresponding to a summary of the communication 
procedures of Figs. 2 and 3. 

Fig. 6 is a chart view of a communication procedure according to the 
present invention illustrating different switch functionalities. 
15 Fig. 7 is a chart view of a communication procedure according to the 

present invention illustrating different loop functionalities. 

DETAILED DESCRIPTION OF THE INVENTION 

Referring now to Fig. 4 a do-while loop solves the same task as the 
20 communication procedure shown in Fig. 1 , except that it is shorter and more 
clearly laid out. In the communication procedure illustrated in Fig. 4 the value 
of a "connected" variable is checked. As long as "connected" does not equal 
0, the system waits for the next dial tone, which is followed by an inquiry as to 
whether the setting-up of the connection is complete. If this question is 



answered "yes", then the "connected" variable is set to equal 0 and the task is 
fulfilled. If not, the "connected" variable is left unchanged so that the system 
continues in the do-while loop. 

Fig. 5 shows how the tasks described in connection with Figs. 2 and 3 
are resolved according to the present invention. Having sent a request, the 
instance TC sends a message having a variable which can have a value of 1 
to 1 ,000. Upon receipt of a message in which the variable MsgNumber has 
the value of 2, a message with the variable B is sent, while upon receipt of a 
message in which the MsgNumber has the value of 555, a message with the 
variable X is sent. In all another cases ("else") waiting only continues ("T"). 
Instead of a change of all charts concerned, only variable B is allocated 
another value so that in the future, instead of event 8, events 8 and 9 are 
sent. Allocating another value once to variable B outside the charts is 
sufficient. All charts may thus remain unchanged. Another advantage is that, 
according to the prior art of Figs. 2 and 3, as many messages had to be 
created as are required in order to resolve the measurement task, i.e. in the 
example case 1 ,000. In the solution of the present invention the generation 
of only a single message suffices for the present measurement task. 

Annex A1 attached hereto shows an executable script according to the 
present invention for a switch function as illustrated in Fig. 6, while Annex A2 
attached hereto shows an executable script according to the present invention 
which corresponds to a communication procedure illustrated in Fig. 7. 

Fig. 6 shows an example of a switch/case functionality realized 
according to the present invention. Depending on the switch variables, 
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various actions are performed by the protocol tester, i.e. the instance TC. If 
the switch variable equals 1 , the message "passed" is issued. If the switch 
variable equals 2, the message "inconclusive", i.e. "not coherent" is issued. If 
the switch variable equals 3, the message "failed" is issued. If the switch 
5 variable equals 4, a "disconnect" is sent and a "confirm" expected back. If the 
switch variable equals 5, the user is to press the F1 key to end the test. For 
all other values of the switch variable a trace text is shown, then a verdict, i.e. 
an evaluation of the test case is set and the test stopped. The associated 
code generated by the method is contained in Annex A1 . The switch itself is 
10 handled by states 2 to 10, while state 1 1 is a jump-in point, and state 12 is an 
end point. 

Fig. 7 shows various loop examples, with box 100 serving to generate 
12 connections in accordance with a requirement "For j = 1 to 12". Box 1 10 is 
a loop with a verification at the end. The variable "connections" is reduced by 

15 1 for each cycle, and passing through the loop continues for as long as the 

variable "connections" does not equal 0. Each time, the instance TC waits for 
the confirmation of a call and, when it has received the call, a call 
confirmation is sent. Box 120 shows a loop functionality in which the 
verification takes place at the beginning. As long as the variable does not 

20 equal 0, the system first waits for a 1 0-second timeout to elapse, after that the 
variable j is reduced by 1 . In case a connection is terminated during the 
timeout, another timeout is set and then the variable j is set to equal 0. This 
function serves to wait until all connections have been released. In Annex A2 
the code generated according to the present invention is printed. Such a 



code cannot be programmed in a Forth box because in a Forth box status 
transitions are not possible. This is because in each compilate the status 
numbers may change, e.g. as a result of an insertion, which requires a new 
status so that the status numbers shift. The result of this is that subsequent 
Forth boxes no longer function. Therefore, only a statistical code 
independent of the compilate may be entered into a Forth box. 

While the present invention is described using the test description 
language MSC as an example, it can of course be applied to other description 
languages. 

Thus the present invention provides setting up a procedure of a 
communication taking place between two instances where a protocol tester is 
one of the instances by selecting the instances involved in the 
communication; selecting a protocol layer on the basis of which the 
communication between the selected instances is to take place; selecting 
abstract communication interfaces of the protocol layer which are involved in 
the communication; selecting communication data; setting up a 
communication procedure that is executable between the instances through 
the protocol tester on the basis of the selections, with the communications data 
selection being made graphically and with the parameters so selectable being 
allocated description files used for setting up the communication procedure that 
is executable between the instances, with the communications data selection 
being a graphic configuration of a communication sequence between the 
instances involved with a user being able to define within the communication 
data graphically a message from one instance to the other instance which 



contains a variable wherein the other instance performs one of several activities 
as a function of the content of the variable. 



Annex A1 : 



( ***** Tektronix MSC-Linker <V2.3.0> builds scenario ' SwitchDemo ' **- 
5 *- forth -*-** ) 

: $MSC$_VersionDate c" Oct 29 2002" ; 
CREATE NO_DE F AULT_TM_ I NSTANC E S 

( »»»»» Include initialization ««««« ) 
10 include pc : boot : / share /pf e/msc_header . 4th 

( »»>»»> Allocation ««««« ) 

( create instance variables and constants. . . ) 

1 CONSTANT MSC_NUM_OF_INSTANCES 

15 CREATE $MSC$_InstanceVars MSC_NUM_0F_ I NSTANC E S 

$MSC$_ElemSize_InstanceVar * $MSC$_Allot&Erase 
CREATE $MSC$_NextStateAddr MSC_NUM_OF_INSTANCES CELLS 
$MSC$_Allot&Erase \ allocate memory for nextstate variables 
CREATE $MSC$_DefaultFlagAddr MSC_NUM_OF_INSTANCES CELLS 

20 $MSC$_Allot&Erase \ allocate memory for default state flags 

CREATE $MSC$_DefaultReturnStateAddr MSC_NUM_OF_INSTANCES CELLS . 
$MSC$_Allot&Erase \ allocate memory for default state flags 
CREATE $MSC$_DefaultStateAddr MSC_NUM_OF_INSTANCES CELLS 
$MSC$_Allot&Erase \ allocate memory for default states 

25 ( create timer variables and constants. . . ) 

( tmo ) 

( create environment function key variables and constants ... ) 
12 CONSTANT $MSC$_FKEY# 

CREATE $MSC$_FKeyAddr MSC_NUM_OF_INSTANCES $MSC$_FKEY# * 
30 $MSC$_ElemSize_FKeyVar * $MSC$_Allot&Erase 

( create pool variables and constants ... ) 
1 CONSTANT MSC_NUM__OF_POOLS 

CREATE $MSC$_PoolVars MSC_NUM_0F_P0OLS CELLS $MSC$_Allot&Erase 
( create message variables and constants... ) 
35 2 CONSTANT MSC_NUM_OF_ME S S AGE S 

CREATE $MSC$_MsgVars MSC_NUM_0 F_ME S SAGE S $MSC$_ElemSize_MsgVar * 
$MSC$_Allot&Erase 

1 CONSTANT MSC_NUM_OF_MSGDECODEVARS ( one per TM ) 
CREATE $MSC$_MsgDecodeVars MSC_NUM_OF_MSGDECODEVARS 

40 $MSC$_ElemSize_MsgDecodeVar * $MSC$_Allot&Erase 

2 CONSTANT MSC_NUM_OF__FOLDERS 

CREATE $MSC$_MsgFolderVars MSC_NUM_OF_FOLDERS $MSC$_ElemSize_FolderVar 
* $MSC$_Allot&Erase 

CREATE $MSC$_EventStructureVars MSC_NUM_OF_POOLS MSC_NUM_OF_INSTANCES 
45 * $MSC$_ElemSize_EventStructureVar * $MSC$_Allot&Erase 

CREATE $MSC$_MsgSizeVars $MSC$_ElemSize_MsgSizeVar $MSC$_Allot&Erase 
variable $MSC$_MsgMatched? 

( create temporary variables and constants... ) 

variable $MSC$_TempFolderHandle 
50 variable $MSC$_PDecoutVar 

CREATE $MSC$_CurHMSCNameStringVar 255 ALLOT 

CREATE $MSC$_TempStringVarAddrO 255 ALLOT 

CREATE $MSC$_TempStringVarAddrl 255 ALLOT 

CREATE $MSC$_TempStringVarAddr2 255 ALLOT 
55 ( create startstate variables ... ) 

variable $MSC$_Req- State 

( >>>>>>>>>> Test Managers <<<<<<<<<< ) 
12 TM_DEF_STATES ! 
60 0 TM_DEF_TIMERS ! 

0 $MSC$_TM_CREATE TMO 

( >>»»»>> Constants <<<«««< ) 
( create mapping of gateway name to pool index ) 
65 0 constant MSC-GW-Gateway_l \ Mapping Gatewayname 'Gateway^l* -> 
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Pool index ' 0 ' 

( create mapping of gateway name to SAP Index ) 

0 constant MSC-GW2SAP-Gateway_l \ Mapping Gatewayname , Gateway_l' -> 
SAPIndex 1 0 ' 

( »»>»»> Variables ««<««< ) 
variable MSC-VAR-Gateway_l-connid 

variable MSC - VAR-Ga t eway_l - Send_Sequence_Number_l 

( »»»»>> Commands <««««< ) 
include pcrboot: /share/pf e/msc_lib. 4th 

( »»»»» MSC ESE Variables ««««« ) 

: MSC_Var : :MSC_String06 MSC_String6 ; 

: MSC_Var : :MSC_INT03 MSC_INT3 ; 

: MSC_Var: :MSC_String07 MSC_String7 ; 

: MSC_Var : :MSC_INT04 MSC_INT4 ; 

: MSC_Var: :MSC_String08 MSC_String8 ; 

: MSC_Var : :MSC_INT05 MSC_INT5 ; 

: MSC_Var: :MSC_String09 MSC_String9 ; 

: MSC_Var : :MSC_INT06 MSC_INT6 ; 

: MSC_Var : :MSC_INT07 MSC_INT7 ; 

: MSC_Var : :MSC_INT08 MSC_INT8 ; 

: MSC_Var: :MSC_INT09 MSC_INT9 ; 

: MSC_Var : :MSC_String01 MSC_Stringl ; 

: MSC_Var : :MSC_String02 MSC_String2 ; 

: MSC_Var : : switchVariable MSC_INT0 ; 

: MSC_Var : :MSC_String03 MSC_String3 ; 

: MSC_Var : :MSC_String04 MSC_String4 ; 

: MSC_Var : :MSC_INT01 MSC__INT1 ; 

: MSC_Var: :MSC_String05 MSC_String5 ; 

: MSC_Var : :MSC_INT02 MSC_I3MT2 ; 

MSC_NUM_OF_POOLS $MSC$_PoolPrepareInit 

( constructor word ... ) 
: $MSC$_Cons true tor ( — ) 
0 $MSC$_Pool Prepares tart 

" pc:C: /K1297/MBS-Pools/gsm2pa.pdc" 0 $MSC$_PoolOpen 

" PROT<BSSM> send to EMUL<ss7sccpl> " 0 1 $MSC$_FolderOpen \ pool 
■ pc : C : /K1297/MBS-Pools/gsm2pa . pdc ' 

■ CONFIRM" Oil $MSC$_MsgVarInit \ pool 'pc :C : /K1297/MBS- 
Pools/gsm2pa.pdc 1 

" PROT<BSSM> send to EMUL<ss7sccpl> " 0 0 $MSC$_FolderOpen \ pool 
' pc : C : /K1297 /MBS-Pools /gsm2pa . pdc 1 

" DISCONNECT_SCCP" 0 0 0 $MSC$_MsgVarInit \ pool ' pc : C : /K1297 /MBS 
Pools /gsm2pa. pdc * 

0 $MSC $_Poo 1 Pr epar eExec 

MSC-VAR-Gateway_l-connid " connid" " PROT<DTAP_MSG> send to 
EMUL<ss7sccpl>" 0 $MSC$_AssignMSCVar 

MSC -VAR-Gat eway_l - Send_Sequence_Number_l " S end_S equenc e_Numb e r_l 
" PROT<DTAP_MSG> send to EMUL<ss7sccpl> n 0 $MSC$_AssignMSCVar 

$MSC$_VerdictInit 



( destructor word ... ) 
: $MSC$_Destructor ( — ) 

$MSC$_CloseAll Pools 



( >>>>>>>>>> Initialization <<<«««< ) 

0 0 $MSC$_InitMsg \ Create kl2MBSevent structure for instance 
■ Test Component ' and gateway ' Gateway_l ' 



TMO ( »»»»» start of instance ' TestComponent * 



«< ) 
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( Segments of Instance 'TestComponent ' : 



+ 

Tvnp I 




| oLaLc 


1 
1 


T AT") t~T \~ Vl 

JjCilvj L.I1 


INIT | 


- no name - 


| 0000000000 




0000000001 


END | 


- no name - 


| 0000000001 




0000000001 


DOC | 


MainSwitch 


| 0000000002 




0000000008 


CONN | 


Swi tchDemo /Start 


| 0000000010 




0000000001 


CONN | 


SwitchDemo/MainSwitch 


| 0000000011 




0000000001 


+ ) 

\ 


-- init segment 









0 STATE_INIT{ 

■ TM0 starts" " TestComponent: " 2 $MSC$_TraceControl 
$MSC $_TraceMsgAr ray 



MSC_NUM_OF_INSTANCES $MSC$_Ver diet Reset \ init verdict 
0 $MSC$_ResetGotoModif ierFlag \ init. instance 
' TestComponent 1 

0 $MSC$_DefaultFlagSet 

0 $MSC$_DefaultStateSet 

( switch command for startstate. . . ) 

$MSC$_Req-State @ CASE 

1 OF 10 NEW_STATE ENDOF 
ENDCASE 
} STATE_INIT 

\ end segment 

1 STATE_INIT{ 

$MSC$_VerdictEval 

" instance 'TestComponent* stops" $MSC$_Print String 
" TM0 stops" " TestComponent: " 2 $MSC$_TraceControl 
$MSC $__Tr aceMs gAr ray 
} STATE_INIT 

1 STATE { 

( this is the end state - loop forever ) 

} STATE 

\ document segment 'MainSwitch' 

2 STATE_INIT{ 

( start Switch 1 DoWhatlMean ' ) 
$MSC$_ReturnStackAlmostFull? IF 

v. " Error: Infinite recursion occured in State 2" vcr 

EXIT THEN 
( MSC_INT0 = 1 IF ) 
MSC_INT0 @ 
1 

= IF 

3 0 $MSC$_NewState EXIT 
THEN 

( MSC_INT0 = 2 IF ) 
MSC_INT0 @ 
2 

= IF 

4 0 $MSC$_NewState EXIT 
THEN 

( MSC_INT0 = 3 IF ) 
MSC_INT0 @ 
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3 

= IF 

5 0 $MSC$_NewState EXIT 
THEN 

5 ( MSC_INTO = 4 IF ) 

MSC_INTO @ 
4 

= IF 

6 0 $MSC$_NewState EXIT 
10 THEN 

( MSC_INT0 = 5 IF ) 
MSC_INT0 @ 
5 

= IF 

15 8 0 $MSC$_NewState EXIT 

THEN 
( else ) 
TRUE IF 

9 0 $MSC$_NewState EXIT 
20 THEN 

( end Switch * DoWhatlMean ' ) 
}STATE_INIT 

3 STATE_INIT{ 

" Verdict set to value 'pass'." " Ma inSwi ten /Test Component : 
25 2 $MSC$_TraceVerdict $MSC$_TraceMsgArray 

$MSC$_VerdictPass 
$MSC$_DefaultFlagGet 0= IF 

0 $MSC$_GetNextState 0 $MSC$_NewState 
ELSE 

30 $MSC$_ReturnDefaultChart 
THEN 
} STATE_INIT 

4 STATE_INIT{ 

" Verdict set to value 'inconclusive*." " 
35 MainSwitch/TestComponent : " 2 $MSC$_TraceVerdict $MSC$_TraceMsgArray 

$MSC $_Verdi c t Inconc 
$MSC$_DefaultFlagGet 0= IF 

0 $MSC$_GetNextState 0 $MSC$_NewState 
ELSE 

40 $MSC $_Re t urnDe f aul t Char t 

THEN 
} STATE_INIT 

5 STATE_INIT{ 

" Verdict set to value 'fail'." " MainSwitch/TestComponent: 
45 2 $MSC$_TraceVerdict $MSC$_TraceMsgArray 

$MSC$_VerdictFail 
$MSC$_DefaultFlagGet 0= IF 

0 $MSC$_GetNextState 0 $MSC$_NewState 
ELSE 

50 $MSC$_ReturnDefaultChart 
THEN 
}STATE_INIT 

6 STATE_INIT{ 

" Send message 'DISCONNECT' ( ' PROT<BSSM> send to 
55 EMUL<ss7sccpl>/DISC0NNECT_SCCP' ) to gateway 'Gateway^' " " 

MainSwitch/TestComponent: " 2 $MSC$_TraceSend $MSC$_TraceMsgArray 
" DISCONNECT" 0 0 0 $MSC$_SendPrimi tive 
7 0 $MSC$_NewState 
} STATE_INIT 
60 7 STATE { 

" CONFIRM" 10 0 $MSC$_RecvPrimitive 
ACTION { 

" Received message 'CONFIRM' ( ' PROT<BSSM> send to 
EMUL<ss7sccpl>/C0NFIRM' ) from gateway 'Gateway_l' " " 
65 MainSwitch/TestComponent: " 2 $MSC$_TraceReceive $MSC$_TraceMsgArray 

0 0 1 $MSC$_FreeEventStructure \ free event structure of 
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message 1 CONFIRM' ( 1 PROT<BSSM> send to EMUL<ss7sccpl> /CONFIRM ' ) and 
gateway 1 Gateway_l ' 

1 $MSC$_ResetMsgFlag \ message 'CONFIRM' ( ' PROT<BSSM> send to 
EMUL<ss7sccpl>/C0NFIRM' ) from gateway 'Gateway_l' 
5 0 $MSC$_ResetGotoModif ierFlag 

$MSC$_DefaultFlagGet 0= IF 

0 $MSC$_GetNextState 0 $MSC$_NewState 
ELSE 

$MSC$_ReturnDefaultChart 
10 THEN 
} ACTION 
TRUE 
ACTION { 

0 0 1 $MSC$_FreeEventStructure \ free event structure of 
15 message 'CONFIRM' ( ' PROT<BSSM> send to EMUL<ss7 sccpl> /CONFIRM' ) and 

gateway * Gateway_l ' 

$MSC$_Cal lDef aul tChar t 
} ACTION 
} STATE 
20 8 STATE { 

I $MSC$_FKey? 
ACTION { 

" Received environment input FK1 " " 
MainSwitch/TestComponent : " 2 $MSC$_TraceEnvironment 
25 $MSC$_TraceMsgArray 

1 $MSC$_ResetFKeyFlag 

0 $MSC$_ResetGotoModif ierFlag 
$MSC$_DefaultFlagGet 0= IF 

0 $MSC$_GetNextState 0 $MSC$_NewState 
30 ELSE 

$MSC$_ReturnDefaultChart 
THEN 
}ACTION 
TRUE 

35 ACTION { 

$MSC$_Cal lDef aul tChar t 
} ACTION 
} STATE 

9 STATE_INIT{ 

40 " Unknown Value " " MainSwitch/TestComponent: " 2 

$MSC$_TraceUser $MSC$_TraceMsgArray 

" Verdict set to value 'fail'." " MainSwitch/TestComponent: " 
2 $MSC$_TraceVerdict $MSC$_TraceMsgArray 
$MSC$_Ver di c t Fai 1 
45 $MSC$_CurHMSCNameStringVar " TestComponent : " 2 

$MSC$_TraceControl $MSC$_TraceMsgArray 

1 0 $MSC$_SetNextState 
1 0 $MSC$_NewState 
EXIT 

50 $MSC$_DefaultFlagGet 0= IF 

0 $MSC$_GetNextState 0 $MSC$_NewState 
ELSE 

$MSC$_ReturnDefaultChart 
THEN 

55 } STATE_INIT 

\ connector segment ' SwitchDemo/ Start ' 

10 STATE_INIT{ 

" Execution of HMSC 'SwitchDemo' started" " TestComponent: " 2 
60 $MSC$_TraceControl $MSC$_TraceMsgArray 

" SwitchDemo' finished" $MSC$_CurHMSCNameStringVar $MSC$_! String 
" Execution of HMSC ' " $MSC$_CurHMSCNameStringVar 
$MSC$_TempStringVarAddrO $MSC$_StrCat 

II 0 $MSC$_SetNextState 
65 2 0 $MSC$_NewState 

} STATE_INIT 
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\ connector segment ' SwitchDemo/MainSwitch' 

11 STATE_INIT{ 

" Execution of HMSC ' SwitchDemo ' finished" " TestComponent 
$MSC$_TraceControl $MSC$_TraceMsgArray 
1 0 $MSC$_SetNextState 
1 0 $MSC$_NewState 
}STATE_INIT 

( »»»»» end of instance 'TestComponent* «<«<<<« ) 
$MSC $_Cons t rue tor 

MSC_MENU_CTRL_FCT ( calls the menu control function ) 
" MSC scenario •SwitchDemo' loaded" $MSC$_PrintString 
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( ***** Tektronix MSC-Linker <V2.3.0> builds scenario , Loo_Demo' **-*- 
5 forth -*-** ) 

: $MSC$_VersionDate c" Oct 29 2002" ; 
CREATE NO_DEFAULT_TM_INSTANCES 

( »»»»» Include initialization ««««« ) 
10 include pc : boot : /share/pf e/msc_header . 4th 

( »»>»»> Allocation ««««« ) 

( create instance variables and constants ... ) 

1 CONSTANT MSC_NUM_OF_INSTANCES 

15 CREATE $MSC$_InstanceVars MSC_NUM_OF_INSTANCES 

$MSC$_ElemSize_InstanceVar * $MSC$_Allot&Erase 
CREATE $MSC$_NextStateAddr MSC_NUM_OF_INSTANCES CELLS 
$MSC$_Allot&Erase \ allocate memory for next state variables 
CREATE $MSC$_DefaultFlagAddr MSC_NUM_OF_INSTANCES CELLS 

20 $MSC$_Allot&Erase \ allocate memory for default state flags 

CREATE $MSC$_Def aultReturnStateAddr MSC_NUM_OF_INSTANCES CELLS 
$MSC$_Allot&Erase \ allocate memory for default state flags 
CREATE $MSC$_DefaultStateAddr MSC_NUM_OF_INSTANCES CELLS 
$MSC$_Allot&Erase \ allocate memory for default states 

25 ( create timer variables and constants. . . ) 

( TMO ) 

0 10000 $MSC$_Timer_CREATE MSC_Timer: : Timeout 

( create environment function key variables and constants ... ) 
12 CONSTANT $MSC$_FKEY# 
30 CREATE $MSC$_FKeyAddr MSC_NUM_OF_INSTANCES $MSC$_FKEY# * 

$MSC$_ElemSize_FKeyVar * $MSC$_Allot&Erase 
( create pool variables and constants... ) 

1 CONSTANT MSC_NUM_OF_POOLS 

CREATE $MSC$_PoolVars MSC_NUM__OF_POOLS CELLS $MSC$_Allot&Erase 
35 ( create message variables and constants ... ) 

2 CONSTANT MSC_NUM_OF_ME S SAGE S ' 

CREATE $MSC$_MsgVars MSC_NUM_OF_MES SAGES $MSC$_ElemSize_MsgVar * 
$MSC$_Al lot&Erase 

1 CONSTANT MSC_NUM__OF_MSGDECODEVARS ( one per TM ) 
40 CREATE $MSC$_MsgDecodeVars MSC_NUM_OF_MSGDECODEVARS 

$MSC$_ElemSize_MsgDecodeVar * $MSC$_Al lot&Erase 

2 CONSTANT MSC_NUM_OF_FOLDERS 

CREATE $MSC$_MsgFolderVars MSC_NUM_OF_FOLDERS $MSC$_ElemSize_FolderVar 

* $MSC$_Allot&Erase 

45 CREATE $MSC$_EventStructureVars MSC__NUM__OF_POOLS MSC_NUM_OF_INSTANCES 

* $MSC$_ElemSize_EventStructureVar * $MSC$_Allot&Erase 

CREATE $MSC$_MsgSizeVars $MSC$_ElemSize_MsgSizeVar $MSC$_A1 lot&Erase 
variable $MSC$_MsgMatched? 

( create temporary variables and constants... ) 
50 variable $MSC$_TempFolderHandle 

variable $MSC$_PDecoutVar 
2 CONSTANT MSC_NUM_0 F_TMP VAR S 

CREATE $MSC$_TmpVars MSC_NUM_OF_TMPVARS CELLS $MSC$_Al lot&Erase 
CREATE $MSC$_CurHMSCNameStringVar 255 ALLOT 
55 CREATE $MSC$_TempStringVarAddr0 255 ALLOT 

CREATE $MSC$_TempStringVarAddrl 255 ALLOT 
CREATE $MSC$_TempStringVarAddr2 255 ALLOT 
( create startstate variables... ) 
variable $MSC$_Req-State 

60 

( »>»»»> Test Managers <«««<« ) 

17 TM__DEF_STATES ! 

1 TM_DEF_T IMERS ! 

0 $MSC $_TM_CREATE TMO 
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( >>>>>>>>>> Constants <<<<<<<<<< ) 

( create mapping of gateway name to pool index ) 

0 constant MSC-GW-Gateway_l \ Mapping Gatewayname *Gateway_l' -> 
Pool index '0' 

( create mapping of gateway name to SAP Index ) 

0 constant MSC-GW2SAP-Gateway_l \ Mapping Gatewayname ' Gateway_l* -> 
SAPIndex ■ 0 • 

{ >>»>»»> Variables <<<<<<<<<< ) 
variable MSC-VAR-Gateway_l-Service_Key_l 

( >>>>>>>>>> Commands ««««<< ) 
include pcrboot: /share/pf e/msc_lib. 4th 

( »»»»» MSC ESE Variables ««««« ) 

: MSC_Var : :MSC_String06 MSC_String6 ; 

: MSC_Var : :MSC_INT03 MSC_INT3 ; 

: MSC_Var : :MSC_String07 MSC_String7 ; 

: MSC_Var : :MSC_INT04 MSC_INT4 ; 

: MSC_Var : :MSC_String08 MSC_String8 ; 

: MSC_Var : :MSC_INT05 MSC_INT5 ; 

: MSC_Var : :MSC_String09 MSC_String9 ; 

: MSC_Var : :MSC_INT06 MS C_ I NT 6 ; 

: MSC_Var : :MSC_INT07 MSC_INT7 ; 

: MSC_Var : : j MSC_INT0 ; 

: MSC_Var : :MSC_INT08 MSC_INT8 ; 

: MSC_Var : :MSC_INT09 MSC_INT9 ; 

: MSC_Var: : Connections MSC_INT1 ; 

: MSC_Var : :MSC_String01 MSC_Stringl ; 

: MSC_Var : :MSC_String02 MSC_String2 ; 

: MSC_Var: :MSC_String03 MSC_String3 ; 

: MSC_Var: :MSC_String04 MSC_String4 ; 

: MSC_Var: :MSC_String05 MSC_String5 ; 

: MSC_Var : :MSC_INT02 MSC_INT2 ; 

MSC_NUM_OF_POOLS $MSC$_PoolPrepareInit 

( constructor word ... ) 
: $MSC$_Constructor ( — ) 
0 $MSC$__PoolPrepareStart 

" pc:C: /Kl297/MBS-Pools/camella.pdc" 0 $MSC$_PoolOpen 

" PR0T<CAP> send to EMUL<ss7sccpl> " 0 1 $MSC$_FolderOpen \ pool 
'pc:C: /K1297/MBS-Pools/camella.pdc , 

" SCCP_END_Connect" Oil $MSC$_MsgVarInit \ pool 'pc :C : /K1297/MBS- 
Pools /camel la .pdc ' 

■ PROT<CAP> send to EMUL<ss7sccpl> " 0 0 $MSC$_FolderOpen \ pool 
' pc : C : /K12 97 /MBS-Pools /camella . pdc 1 

" SCCP_START" 0 0 0 $MSC$_MsgVarInit \ pool ' pc : C : /K1297 /MBS- 
Pools/ camel la. pdc ' 

0 $MSC$_PoolPrepareExec 

MSC-VAR-Gateway_l-Service_Key_l " Service_Key_l " " PROT<CAP> send 
to EMUL<ss7sccpl>" 0 $MSC$_AssignMSCVar 
$MSC $_Ver di c t Ini t 



( destructor word ... ) 
: $MSC$_Destructor ( -- ) 

$MSC $_C 1 o s eAl 1 Poo 1 s 



( »»»»» Initialization ««««« ) 

0 0 $MSC$_InitMsg \ Create kl2MBSevent structure for instance ' TC_1 
and gateway ' Gateway_l ' 

TMO ( »»»»» start of instance 'TC_1' ««««« ) 
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( Segments of Instance "TC_1 ' : 



5 



+ 

TVnp 






1 juexiyc.ii 


-I- 

INIT 


- no name - 


| 0000000000 


| 0000000001 


END 


- no name - 


| 0000000001 


| 0000000001 


DOC 


Connect 


| 0000000002 


| 0000000013 


CONN 


Loo^Demo/ Start 


| 0000000015 


| 0000000001 


CONN 


Loo_Demo / C onnec t 


| 0000000016 


| 0000000001 


+ ) 

\ — 


init segment 







0 STATE_INIT{ 

■ TM0 starts" " TC_1: ■ 2 $MSC$_TraceControl 
$MSC$_TraceMsgArray 
25 MSC_NUM_OF_INSTANCES $MSC$_Verdict Reset \ init verdict 

0 $MSC$_ResetGotoModif ierFlag \ init. instance ■ TC_1 ' 
0 $MSC$_DefaultFlagSet 
0 $MSC$_DefaultStateSet 

MSC_Timer: : Timeout $MSC$_Timer_Init \ init. timer 'Timeout' 
30 ( switch command for startstate. . . ) 

$MSC$_Req- State @ CASE 

1 OF 15 NEW_STATE ENDOF 
ENDCASE 
} STATE_INIT 



35 

\ end segment 

1 STATE_INIT{ 

$MSC$_VerdictEval 

" instance *TC_1' stops" $MSC$_Print String 
40 " TM0 stops" " TC_1: " 2 $MSC$_TraceControl 



$MSC$_TraceMsgArray 
} STATE_INIT 
1 STATE { 

( this is the end state - loop forever ) 

45 } STATE 



\ document segment 'Connect' 

2 STATE_INIT{ 

12 MSC_INT0 ! 

50 12 0 $MSC$_DefaultFlagGet + $MSC$_SetTmpVar 

3 0 $MSC$_NewState 
} STATE_INIT 

3 STATE_INIT{ 

" Desktop Calculator 'Connections = Connections + 1* start " 
55 " Connect/TC_l: " 2 $MSC$_TraceDCalculator $MSC$_TraceMsgArray 

( start Desktop Calculator 'Connections = Connections +1' ) 
( Connections = Connections + 1 ) 
MSC_INT1 @ 
1 

60 $MSC$_+ 

MSC_INT1 ! 

( end Desktop Calculator 'Connections = Connections +1' ) 
■ Desktop Calculator 'Connections = Connections + 1' end " " 
Connect/TC_l : " 2 $MSC$_TraceDCalculator $MSC$_TraceMsgArray 
65 " Send message 'MOC ( 1 PROT<CAP> send to 

EMUL<ss7sccpl>/SCCP_START' ) to gateway 'Gateway_l' " " Connect /TC_1 : " 
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2 $MSC$_TraceSend $MSC$_TraceMsgArray 

" MOC" 0 0 0 $MSC$_SendPrimitive 
4 0 $MSC$_NewState 
}STATE_INIT 
5 4 STATE_INIT{ 

$MSC$_RetumStackAlmostFull? IF 

" WARNING: Infinite recursion occured in repetition in chart 
'Connect 1 - continue with next state..." 

0 $MSC$_GetNextState 0 $MSC$_NewState EXIT 
1 0 THEN 

MSC_INT0 @ 1 - MSC_INT0 ! 
MSC_INT0 @ 0 <> IF 

3 0 $MSC$_NewState EXIT 
ELSE 

15 5 0 $MSC$_NewState EXIT 

THEN 
} STATE_INIT 

5 STAT E_I NIT { 

6 0 $MSC$_NewState 
20 } STATE__INIT 

6 STAT E_I NIT { 

■ Desktop Calculator 'Connections = Connections - 1' start " 
" Connect/TC_l: " 2 $MSC$_TraceDCalculator $MSC$_TraceMsgArray 

( start Desktop Calculator 'Connections = Connections - 1* ) 
25 ( Connections = Connections - 1 ) 

MSC_INT1 @ 
1 

$MSC$_- 
MSC_INT1 ! 

30 ( end Desktop Calculator 'Connections = Connections - l 1 ) 

" Desktop Calculator 'Connections = Connections - 1' end " " 
Connect/TC_l : " 2 $MSC$_TraceDCalculator $MSC$_TraceMsgArray 

7 0 $MSC$_NewState 
} STATE_INIT 

35 7 STATE { 

" Confirm" 10 0 $MSC$__RecvPrimitive 
ACTION { 

" Received message 'Confirm' ( ' PROT<CAP> send to 
EMUL<ss7sccpl>/SCCP_END_Connect ' ) from gateway 'Gateway_l' " " 
40 Connect /TC_1 : " 2 $MSC$_TraceReceive $MSC$_TraceMsgArray 

0 0 1 $MSC$_FreeEventStructure \ free event structure of 
message 'Confirm' ( ' PROT<CAP> send to 

EMUL<ss7sccpl>/SCCP_END_Connect ' ) and gateway *Gateway_l' 

1 $MSC$_ResetMsgFlag \ message 'Confirm' ( ' PROT<CAP> send to 
45 Eiy[UL<ss7sccpl>/SCCP_END_Connect ' ) from gateway ' Gateway_l ' 

0 $MSC$_ResetGotoModif ierFlag 

" Send message ' Con firmAcknowl edge ' ( ' PR0T<CAP> send to 
EMUL<ss7sccpl>/SCCP_START' ) to gateway 'Gateway_l' " " Connect/TC_l : 
2 $MSC$_TraceSend $MSC$_TraceMsgArray 
50 " Conf irmAcknowledge" 0 0 0 $MSC$_SendPrimitive 

8 0 $MSC$_NewState 
}ACTI0N 

TRUE 
ACTION { 

55 0 0 1 $MSC$_FreeEventStructure \ free event structure of 

message 'Confirm' ( ' PR0T<CAP> send to 

EMUL<ss7sccpl>/SCCP_END_Connect ' ) and gateway 'Gateway_l' 
$MSC $_Cal lDef aul tChar t 
} ACTION 
60 } STATE 

8 STATE_INIT{ 

$MSC$_ReturnStackAlmostFull? IF 

" WARNING: Infinite recursion occured in repetition in chart 
'Connect* - continue with next state..." 
65 0 $MSC$_GetNextState 0 $MSC$_NewState EXIT 

THEN 
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MSC_INT1 @ 0 <> IF 

6 0 $MSC$_NewState EXIT 
ELSE 

9 0 $MSC$_NewState EXIT 
5 THEN 
} STATE_INIT 
9 STATE_INIT{ 

14 0 $MSC$_NewState 
}STATE_INIT 
10 10 STATE_INIT{ 

" Timer 'Timeout' set with value 10000" " Connect /TC_1 : " 2 
$MSC$_TraceTimer $MSC$_TraceMsgArray 

10000 MSC_Timer: : Timeout $MSC$_Timer_RunTime ! 
MSC_Timer :: Timeout $MSC$__Timer_Start \ timer 'Timeout' 
15 " Desktop Calculator 'j = j - 1' start " " Connect/TC_l : " 2 

$MSC$_TraceDCalculator $MSC$_TraceMsgArray 

( start Desktop Calculator ' j = j - 1' ) 

( j = j - 1 ) 
MSC_INT0 @ 
20 1 

$MSC$__- 
MSC_INT0 ! 
( end Desktop Calculator ' j = j - 1 1 ) 

" Desktop Calculator *j = j - 1* end " " Connect/TC__l : " 2 
25 $MSC$_TraceDCalculator $MSC$_TraceMsgArray 

11 0 $MSC$_NewState 
}STATE_INIT 
11 STATE_INIT{ 

1 $MSC$_ResetMsgFlag \ message ' ReleaseConnection ' 
30 ('PROT<CAP> send to EMUL<ss7sccpl>/SCCP_END__Connect * ) from gateway 

' Gateway_l ' 

} STATE_INIT 

11 STATE { 

" ReleaseConnection" 10 0 $MSC$_RecvPrimitive 
35 ACTION { 

0 0 1 $MSC$_FreeEvent Structure \ free event structure of 
message 'ReleaseConnection* ( * PROT<CAP> send to 
EMUL<ss7sccpl>/SCCP_END_Connect * ) and gateway 'Gateway_l' 
0 $MSC$_SetGotoModif ierFlag 
40 12 0 $MSC$_NewState 

}ACTI0N 

" TC_1" " Timeout" MSC_Timer: : Timeout $MSC$_Timer_Timeout ? 
ACTION { 

0 0 1 $MSC$_FreeEventStructure \ free event structure of 
45 message 'ReleaseConnection* ( ' PROT<CAP> send to 

EMUL<ss7sccpl>/SCCP_END__Connect * ) and gateway * Gateway_l ' 
0 $MSC$_SetGotoModif ierFlag 
13 0 $MSC$_NewState 
} ACTION 
50 TRUE 

ACTION { 

0 0 1 $MSC$_FreeEvent Structure \ free event structure of 
message 'ReleaseConnection* ( * PROT<CAP> send to 
EMUL<ss7sccpl>/SCCP_END_Connect * ) and gateway *Gateway_l* 
55 $MSC$_Cal lDef aul tChart 

} ACTION 
} STATE 

12 STATE { 

" ReleaseConnection" 10 0 $MSC$_RecvPrimitive 
60 ACTION { 

" Received message 'ReleaseConnection* ( ' PROT<CAP> send to 
EMUL<ss7sccpl>/SCCP_END_Connect * ) from gateway 'Gateway_l* " " 
Connect /TC_1 : " 2 $MSC$_TraceReceive $MSC$_TraceMsgArray 

0 0 1 $MSC$_FreeEventStructure \ free event structure of 
65 message 'ReleaseConnection' ( ' PROT<CAP> send to 

EMUL<ss7sccpl>/SCCP_END_Connect * ) and gateway 'Gateway_l* 
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1 $MSC$_ResetMsgFlag \ message ' ReleaseConnection ' 
('PROT<CAP> send to EMUL<ss7sccpl>/SCCP_END_Connect ' ) from gateway 
' Gateway_l ' 

0 $MSC$_ResetGotoModifierFlag 
5 14 0 $MSC$_NewState 

} ACTION 
TRUE 
ACTION { 

0 0 1 $MSC$_FreeEventStructure \ free event structure of 
10 message 'ReleaseConnection' ( ' PROT<CAP> send to 

EMUL<ss7sccpl>/SCCP_END_Connect ' ) and gateway 'Gateway_l' 
$MSC$_CallDefaultChart 
} ACTION 
} STATE 
15 13 STATE { 

" TC_1" " Timeout" MSC_Timer: : Timeout $MSC$_Timer_Timeout? 
ACTION { 

" Received timeout 'Timeout' " 11 Connect /TC_1 : " 2 
$MSC$_TraceTimer $MSC$_TraceMsgArray 
20 0 $MSC$_ResetGotoModifierFlag 

■ Desktop Calculator ' j = 0' start " " Connect/TCJL : " 2 
$MSC$_TraceDCalculator $MSC$_TraceMsgArray 

( start Desktop Calculator ' j = 0 ' ) 
( j = 0 ) 
25 0 

MSC_INT0 ! 
( end Desktop Calculator 'j =0* ) 

" Desktop Calculator 'j = 0' end " " Connect/TC_l : " 2 
$MSC$_TraceDCalculator $MSC$_TraceMsgArray 
30 14 0 $MSC$_NewState 

} ACTION 
TRUE 
ACTI0N{ 

$MSC$_CallDefaultChart 
35 } ACTION 

} STATE 

14 STATE_INIT{ 

$MSC$_ReturnStackAlmostFull? IF 

" WARNING: Infinite recursion occured in repetition in chart 
40 'Connect' - continue with next state..." 

0 $MSC$_GetNextState 0 $MSC$_NewState EXIT 
THEN 

MSC_INT0 @ 0 <> IF 

10 0 $MSC$_NewState EXIT 
45 ELSE 

$MSC$_DefaultFlagGet 0= IF 

0 $MSC$_GetNextState 0 $MSC$_NewState EXIT 
ELSE 

$MSC$_RetumDefaultChart EXIT 
50 THEN 
THEN 
} STATE_INIT 

\ connector segment ' Loo_Demo/Start ' 

55 15 STATE_INIT{ 

" Execution of HMSC , Loo_Demo' started" " TC_1 : " 2 
$MSC$_TraceControl $MSC$_TraceMsgArray 

" Loo_Demo' finished" $MSC$_CurHMSCNameStringVar $MSC$_! String 
" Execution of HMSC ' " $MSC$_CurHMSCNameStringVar 
60 $MSC$_TempStringVarAddr0 $MSC$_StrCat 

16 0 $MSC$_SetNextState 
2 0 $MSC$_NewState 
} STATE_INIT 

65 \ connector segment ' Loo_Demo/ Connect ' 

16 STATE_INIT{ 
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" Execution of HMSC 'Loo_Demo , finished" " TC_1 
$MSC$_TraceControl $MSC$_TraceMsgArray 
1 0 $MSC$_SetNextState 
1 0 $MSC$_NewState 
} STATE_INIT 

{ »»»»» end of instance 'TCML' ««««« ) 
$MSC$__Constructor 

MSC_MENU_CTRL_FCT ( calls the menu control function ) 
" MSC scenario 'Loo_Demo' loaded" $MSC$_Print String 



